home *** CD-ROM | disk | FTP | other *** search
- failat 31
- if not exists env:quickstarted
- Echo "Die CD ist nicht eingerichtet!*nBitte zuerst Quickstart ausführen!"
- wait 2
- quit
- endif
- set choiced `APCD:C/requestchoice "Amiga+ (C)" "Welchen JPG-Anzeiger wollen sie verwenden?" "Fast-JPEG (Emp.!)|ViewTek|Mysticview|Eigenen..."`
-
- if $choiced eq 0 val
- lab choicing
- set APCDJPG `requestfile TITLE "Bitte Viewer wählen:" DRAWER APCD:A+tools/jpg`
- cd `get apcdjpg` >NIL: ;Checkt ob File oder dir
- if not warn
- skip back choicing
- endif
- endif
- if $choiced eq 1
- set APCDJpg APCD:A+Tools/jpg/fjpeg
- endif
- if $choiced eq 2 val
- set APCDJpg APCD:A+Tools/jpg/vt
- endif
- if $choiced eq 3 val
- set APCDJpg APCD:A+Tools/jpg/mysticview
- endif
-
- set JPG0 "Eigener!"
- set JPG1 "FastJpeg!"
- set JPG2 "ViewTek!"
- set JPG3 "Mysticview!"
- requestchoice "Amiga+ (C)" "Neuer Viewer: `get JPG$choiced`" Save|Use|Cancel >env:save
- if $save eq 1
- setenv APCDJPG "`get APCDjpg`"
- copy env:APCDjpg envarc: quiet >NIL:
- endif
- if $save eq 2
- setenv APCDjpg "`get APCDjpg`"
- endif
-